home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / pc / macf / mita.dir / 00281.ls < prev    next >
Encoding:
Text File  |  1995-10-10  |  702 b   |  32 lines
  1. on mouseUp
  2.   global LastButton, gRewind, movieID, gSpeed
  3.   repeat with x = 3 to 5
  4.     puppetSprite(x, 1)
  5.     set the visible of sprite x to 0
  6.     puppetSprite(x, 0)
  7.   end repeat
  8.   puppetSprite(5, 1)
  9.   set the visible of sprite 5 to 1
  10.   puppetSprite(5, 0)
  11.   updateStage()
  12.   if gRewind = 1 then
  13.     QTMovie("Direct", movieID, "reverse")
  14.     set gRewind to 0
  15.   end if
  16.   set gRewind to 0
  17.   if gSpeed = 2 then
  18.     set speed to 1.0
  19.     set speed to string(speed)
  20.     QTMovie("Direct", movieID, "Set", "rate", speed)
  21.     set gSpeed to 1
  22.   end if
  23.   put "inside play button, script 16"
  24.   put "LastButton", LastButton
  25.   if LastButton = 1 then
  26.     unpauseQT()
  27.   else
  28.     go(19)
  29.   end if
  30.   set LastButton to 1
  31. end
  32.